home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / MAXMIN.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  405b  |  22 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' DECLARE FUNCTION Maximum% (v1%, v2%)
  3. '' DECLARE FUNCTION Minimum% (v1%, v2%)
  4. '' '$INCLUDE: 'qbtools2.inc'
  5.  
  6. FUNCTION Maximum% (v1%, v2%)
  7.    IF v1% >= v2% THEN
  8.       Maximum% = v1%
  9.    ELSE
  10.       Maximum% = v2%
  11.    END IF
  12. END FUNCTION
  13.  
  14. FUNCTION Minimum% (v1%, v2%)
  15.    IF v1% >= v2% THEN
  16.       Minimum% = v2%
  17.    ELSE
  18.       Minimum% = v1%
  19.    END IF
  20. END FUNCTION
  21.  
  22.